package Stdlog::Writer::HTTP;

use 5.008;
use strict;
use warnings;
use LWP::UserAgent;
use Hash::Util qw(lock_keys);
use Stdlog::Formatter;

my %writer_cache;


sub new {
    my ($pkg, $conf) = @_;
    my $self = {
        'ua'     => '',
        'err'    => '',
        'url'    => '',
	'method' => $conf->{method} || 'GET'
    };
    bless $self, $pkg;
    lock_keys(%$self);
    return $self;
}


sub logmsg {
    my $self = shift @_;
    my $args = shift @_;

    print STDERR "@_\n";
}

1;
__END__

=head1 NAME

Stdlog::Writer::HTTP -- sending data to an http server

=head1 SYNOPSIS

  use Stdlog::Writer::HTTP;
  
  

=head1 DESCRIPTION


=head1 CLASS METHODS

=head2 Stdlog::Writer->new(CLASS, OPTS)


=head2 Stdlog::Writer->get(ID)


=head1 OBJECT METHODS


=head1 EXPORTS

None by default.


=head1 SEE ALSO


=head1 AUTHOR

Robert Mah E<lt>rmah@pobox.comE<gt>


=head1 COPYRIGHT AND LICENSE

Copyright (C) 2007 by Robert Mah

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.

=cut
